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OTROS LENGUAJES 


E sistemas de 
numeración 


OMO ya sabemos, el 
ordenador trabaja in- 
ternamente con da- 
tos binarios (cadenas 
de unos y ceros), por 
medio de los cuales 
representa números, 
nombres, etcétera. 
Existen varios formatos internos de repre- 
sentación de los distintos tipos de datos, 
aunque en la mayoría de los casos el 
programador trabaja en un lenguaje de 
programación lejano a la máquina y, por 
ello, no necesita considerar el formato in- 
terno de los datos que maneja. 

El hombre trabaja generalmente en sis- 
tema decimal, y el ordenador en sistema 
binario; en ambos la representación de 
los números se realiza mediante cadenas 
de símbolos, dependiendo el valor de 
cada símbolo de la posición que ocupe 
dentro de la cadena. 

Un número decimal ordinario, de los 
que todos usamos, consta de un conjun- 
to de dígitos decimales y, posiblemente 
de una coma decimal. La forma general 
y su interpretación se muestran en la figu- 
ra 1. 


Número 
decimal 


Número 


binario Expresión 


0 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


x2+0 
x2+4 
x4+0x2 
x4+0x2 
x4+41x2 
x4+414x2 
x8+1x4 
x8+0x4 
x8+0x4 
x8+0x4 


trrt+r+rr+>+ 
+) 002020 


mb e 
"2000 JOAN... 
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REPRESENTACION INTERNA DE LOS DATOS 


La elección de 10 como base de expo- 
nenciación se hace a causa de que uti- 
lizamos números decimales o en base 10. 
Cuando tratamos con ordenadores es 
mucho mejor utilizar otras bases distintas 
de 10. Las bases más importantes son 2, 
8, 16. Los sistemas de numeración corres- 
pondientes a estas bases se llaman bina- 
rio, octal y hexadecimal. 


Sistema binario 


El conjunto de símbolos utilizados en 
este sistema de numeración se limita a 
dos (0,1); en consecuencia, la única for- 
ma de representar un número binario es 
mediante una cadena de dígitos bina- 
rios, también llamados bits: ceros y unos. 

Este sistema de numeración, ideado 
por Leibniz en el siglo XVII, constituye el 
alfabeto interno de los ordenadores 
electrónicos. 

En este sistema, al tener sólo dos sím- 
bolos, un valor 2 habrá que representar- 
lo como 10, ya que el símbolo 2 no exis- 
te en binario. En este sistema, un símbolo 
en la segunda posición tendrá un valor 
dos veces superior (base =2) al de los 
símbolos de la primera posición; un síim- 
bolo en la tercera posición (lo que cono- 
cemos en decimal como centena), un 
valor dos veces superior al de aquéllos 
en segunda posición, etc. 


Sistema octal 


En este sistema sólo son válidos los sím- 
bolos: 


0, 1,2, 3,4, 5,0; 7 


Por tanto, el peso de cada uno de los 
dígitos de un número será 8”, siendo n la 
posición que ocupa si contamos de de- 
recha a izquierda. Veremos esto más 
adelante en la conversión entre siste- 
mas. 


100401100 
410040000 
414440400 

1001041000 
1010444400 
4100100000 
4140000100 
4114404000 
101440404404 


Números decimales 
lA y sus equivalentes a los 
sistemas binario, octal y hexadecimal. 


Sistema hexadecimal 


Este sistema está basado en un conjun- 
to de 16 elementos; 


0,1,2,3,4,5.0:7,8,7% A, B,€, D, E. 4 
Como sólo tenemos diez dígitos numé- 


ricos diferentes se utilizan las letras, cuyo 
valor corresponde: 


A=10, B=11, C=12, D=13, E=14, F=15 


Para utilizar valores mayores se combi- 
nan estos símbolos básicos, de forma que 
para representar el número 16 pondría- 
mos 10, etc. 


Conversión de una base 
a otra 


1. Conversión de cualquier sistema a 
base decimal 


Basta sólo con aplicar la siguiente fór- 
mula: 


Nao = A,'B, + 0, .'B,., +....+ d,"2 + d,'B dy 


en donde d,, d,,...., d,, son las cifras del 
número inicial, B es el número de símbo- 
los del sistema de nuineración (base del 
sistema) y N, es la representación del 
número en sistema decimal. 


2. Conversión de un número decimal a 
otro sistema 


Mucho más fácil, basta con dividir su- 
cesivamente el número en base decimal 
por la nueva base; el cociente y los res- 
tos obtenidos (en orden contrario al que 
han aparecido) coinciden con el núme- 
ro expresado en el nuevo sistema. 


vi Conversión del número binario 
101110110111 a decimal. 


4 +2 x 1499 = 2999 «— Resultado 


4+2x749 = 1499 
o 

4+2x 374 = 749 
w— 


0+2x 187 = 374 
a 
4+2x93 = 187 
MW 
4+2x 46 = 93 
MW 
0+2x23=46 
4+2x 11 = 23 
141+42x5=44 


o 
141+42x2=5 


Pl 


7 


3 0+42x1=2 


4+2x0=4 -<— Comienza aquí 
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' 
1011101010 0=149210 


[A Conversión del número 1492 a binario 
por divisiones sucesivas. 


3. Conversión binario-octal y binario- 
hexadecimal 


— Para convertir un número expresa- 
do en base dos a octal, se van agrupan- 
do los dígitos en grupos de tres. Cada 
uno de los grupos corresponde a un sím- 
bolo en base ocho. 

— Para cambiar de base dos a base 
dieciséis, agrupamos los dígitos binarios 
en grupos de cuatro y hacemos lo mismo 
que en el caso anterior. 


CONVERSION 
BINARIO-OCTAL 


T*TMOOW> 00 LONA O 


' Tipos de datos 

Un dato es cualquier elemento de infor- 
mación que va a ser procesado por un 
ordenador. Cuando un programa va a 
trabajar con un gran número de datos, se 
facilitará mucho el trabajo si se organiza 
de forma apropiada su almacenamiento. 
Vamos a ver a continuación algunas for- 
mas de estructurar los datos: 


4. Datos simples 


Son aquéllos que no pueden descom- 
ponerse en partes significativas más sim- 
ples. Los datos pueden o no alterarse du- 
rante la ejecución de programas. Si no se 
alteran reciben el nombre de CONSTAN- 
TES y, en caso contrario, de VARIABLES. 
Cada uno de estos datos tiene reserva- 
do en memoria el espacio suficiente 
para registrar su valor. 

Dentro de este grupo de datos pode- 
mos hacer una división respecto al tipo 
de dato que estemos utilizando: 


Datos numéricos 


Para operar con un número se debe 
conocer de el: 


— Su signo. 

— El valor de cada una de sus cifras, 
en su orden. 

— El lugar de la coma decimal en la 
cadena de cifras. 

Por este motivo, el ordenador deberá 
representar todo ello en memoria al al- 
macenar un dato numérico. La forma de 
hacerlo va de acuerdo al sistema de re- 
presentación utilizado. 


a) Coma fija. 

El nombre viene de la forma de repre- 
sentar la posición de la coma decimal. El 
lugar viene predeterminado por el siste- 
ma. Existen tres formas de almacena- 
miento en coma fija: 

— Binario puro. 

— Decimal empaquetado. 

— Decimal desempaquetado. 

b) En coma flotante, para una base 
dada, los números se representan por 
medio de una mantisa y un exponente. 
De esta forma, el ordenador debe alma- 
cenar: 

— El valor de la mantisa y su signo. 

— El valor del exponente y su signo. 

— El valor de la base que va implícito 
en el sistema elegido. 


La coma flotante puede representarse 
en dos modos: 

— Simple precisión. 

— Doble precisión. 


Datos alfabéticos y altanuméricos 


Este tipo de datos se almacena siem- 
pre en formato desempaquetado, es de- 


cir, un carácter por byte, ya que en este 
caso sí son necesarios más de cuatro bits 
para representar cada carácter. La con- 
figuración de ceros y unos que represen- 
ta a cada carácter dependerá del cóai- 
go utilizado por el ordenador. En equipos 
de 8 bits los más utilizados son EBCDIC y 
ASCII. 


CODIGO ALFANUMERICO ASCII 


la + ¿UA PRD 


00 JO nan aDO-. 


O |] A=-» .. 


2. Punteros 


Son datos cuyo valor indica la direc- 
ción de memoria donde se encuentra 
otro dato. Por tanto, es una forma indirec- 
ta de acceder a la información. 

Pueden ser útiles, por ejemplo, para en- 
cadenar informaciones en un cierto orden. 


Lt 


za Los punteros son datos que no contienen 
lA más información que la de la dirección de 
memoria donde se encuentra otro dato. En 

este caso los punteros son campos de un registro. 


3. Tablas 


La organización de los datos en tablas 
implica su almacenamiento en posicio- 
nes consecutivas de memoria, de forma 
que se puede localizar cualquier ele- 
mento mediante la programación del al- 
goritmo adecuado. 


a 
b 
c 
d 
e 
f 
9 
h 
i 
j 
k 
I 
m 
n 
o 
Pp 
q 
r 
s 
t 
u 
v 
w 
x 
y 
z 
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En caso de tablas o matrices de dos di- 
mensiones, el almacenamiento debe ser 
lineal, es decir, por filas o columnas. 


NOMBRE6 


¡ mM Ejemplo de matriz de dos dimensiones. 


Cada registro se almacena en una posi- 
ción consecutiva, dentro del área reserva- 
da a la tabla en memoria. 


OS ficheros de texto 
están constituidos 
por caracteres legi- 
bles agrupados en lí- 
neas. Las líneas son 
de longitud variable y 
pueden llegar a tener 
hasta 253 caracteres, 
pero lo más frecuente es que no pasen 
de 40 u 80, que son los que caben en el 
ancho de la pantalla. El fin de cada línea 
está señalado internamente por dos ca- 
racteres de control: «retorno de carro» y 
«nueva línea». Estos dos caracteres tie- 
nen los códigos ASCII 13 y 10, respectiva- 
mente. 

Los programas fuente de la mayoría de 
los lenguajes de programación son, des- 
de el punto de vista físico, ficheros de 
texto estándares. Los del ensamblador se 
diferencian del estándar únicamente en 
que la longitud máxima en la línea está 
restringida a 132 caracteres. 


" Sentencias 

Las unidades lógicas del lenguaje en- 
samblador del 8088 (MASM) son las sen- 
tencias. Las sentencias deben escribirse 
en líneas independientes y pueden estar 


nombre operación 


La 


SEG_DATO 
MENSAJE 


"Programa PROGZ.” 
13,10,36 

VECES 15 
SEG_DATO ENDS 
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constituidas por cuatro tipos de compo- 
nentes que deben ir separados por al 
menos un espacio en blanco. Los com- 
ponentes de las sentencias son: 


1. Nombre (opcional). 

2. Operación. 

3. Conjunto de operandos. 
4. Comentario (opcional). 


Excepto para los textos que constitu- 
yen mensajes o datos, las letras mayús- 
culas y minúsculas son equivalentes a to- 
dos los efectos. 


O Ejemplo 


Vamos a usar el siguiente programa 
fuente (que llamaremos PROG2) para co- 
mentar los componentes de los diferen- 
tes tipos de sentencias. 

Cuando sometamos dicho programa a 
los procesos de ensamblaje y montaje 
(explicado en el tema anterior), veremos 
que en la ejecución del mismo se gene- 
ra un mensaje repetidamente sobre la 
pantalla. 

Los cuatro componentes de las senten- 
cias se han organizado por columnas en 
el listado para hacer más fácil su identi- 
ficación. 


>) > 


¡Línea Ol 
¡Línea 02 
¡Línea 03 
¡Línea 04 
¡Línea 05 
¡Línea 06 
¡Línea 


SEG_CODE  SEGMENT 


. Nombre 


El primer componente de la sentencia 
es casi siempre opcional y consiste en un 
nombre o etiqueta que sirve para identi- 
ficar instrucciones aisladas o grupos de 
instrucciones que deban ser referencia- 
das desde otros puntos del programa. 


Los nombres deben cumplir las siguien- 
tes reglas: 


1. Aunque se pueden especificar 
nombres de cualquier longitud, sólo los 
primeros 31 caracteres son reconocidos 
por el ensamblador. 

2. Son válidos los siguientes caracteres: 


— Las letras del alfabeto inglés (don- 
de se excluye la ñ). 

— Los números del 0 al 9. 

— Los caracteres especiales de in- 
terrogación (?), punto (.), (a (3), subra- 
yado (—_) y dólar ($). 


3. Los números no pueden constituir el 
primer carácter de un nombre. 

4. El punto (.) sólo puede usarse como 
primer carácter. 

En el programa ejemplo PROG2, el 
nombre SEG__DATO que aparece en las lí- 
neas 2 y 6 especifica el nombre de un 
segmento de datos. El nombre VECES 


PROC1 PROC FAR ¡Línea 09 

ASSUME CS: SEG_CODE,DS:SEG_DATO ¿Línea 10 

¿Línea 11 

PUSH DS ¡Línea 12 

MOV AX, 0000 ¡Línea 13 

PUSH AX ¿Linea 14 

¡Línea 15 

MOV AX,DATOS ¡Línea 16 

MOV , AX ¡Línea 17 

¡Línea 18 

MOV CX, VECES ¡Linea 19 

¡Línea 20 

BUCLE: LEA DX, MENSAJE ¿Línea 21 

MOV AH, 9 ¡Línea 22 

INT 21H ¿Línea 23 

LOOP BUCLE ¡Línea 24 

¡Línea 25 

RET ¡Línea 26 

PROC1 ENDP ¡Línea 27 

¡Línea 28 

SEG_CODE ENDS ¡Línea 29 

END PROCi ¡Línea 30 
a e e E - -> 
nombre operación operando comentario 


¡Línea 08 


corresponde a una variable que se defi- 
ne en la línea 5 y se usa en la 19. Y BUCLE 
es una etiqueta que se le ha asignado a 
la instrucción ejecutable de la línea 21 
para poderla referenciar desde la línea 
24. 


[m Operación 


El segundo componente es el más im- 
portante, ya que es el que realmente de- 
fine la esencia de la sentencia. Hay dos 
tipos de operaciones totalmente diferen- 
tes que podemos llamar: 


— Operaciones propiamente dichas. 
— Seudo-operaciones. 


Las operaciones propiamente dichas 
son códigos nemotécnicos de las accio- 
nes que puede realizar el microprocesa- 
dor y que el ensamblador se encargará 
de traducir a código máquina. A las sen- 
tencias que contienen operaciones de 
este tipo las podemos llamar «sentencias 
ejecutables». 

En el programa anterior son sentencias 
ejecutables las líneas que van de la 12 a 
la 26, excepto las número 15, 18, 20 y 25, 
que por legibilidad se han dejado en 
blanco. En ellas aparecen las operacio- 
nes PUSH, MOV, LEA, INT, LOOP y RET. 
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Se llaman seudo-operaciones a los có- 
digos de operación que no generan có- 
digo ejecutable. Los cuales, a su vez, 
pueden ser de dos tipos: 


— Seudo-operaciones de definición 
de datos. 
— Seudo-operaciones directivas. 


Las primeras, como su nombre indica, 
sirven para definir datos, es decir, asig- 
nar nombres a trozos de memoria y hacer 
que el ensamblador genere los códigos 
(no ejecutables) con los valores iniciales 
de las mismas. Las seudo-operaciones DB 
y DW que aparecen en las líneas 3, 4 y 5 
del programa PROG2 son de este tipo. 

Las segundas sirven para definir al en- 
samblador determinadas circunstancias 
que influirán en la traducción de otras 
operaciones, pero no generan directa- 
mente ningún código. En el ejemplo an- 
terior, son seudo-operaciones directivas 
las siguientes: NAME, SEGMENT, ENDS, 
PROC, ASSUME, ENDP y END. 


¡Ol Conjunto de operandos 


El tercer componente es una informa- 
ción complementaria de la operación o 
de la seudo-operación y está constituida 
por uno o más elementos. Cuando la sen- 
tencia contiene un código de operación 
estos elementos reciben el nombre de 
operandos. Con ellos se especifican los 
elementos involucrados que pueden ser: 
registros, referencias a la memoria, cons- 
tantes o expresiones. 

Cada operación tiene un número de 
operandos propio. Algunas no requieren 
ninguno, como es el caso de la opera- 
ción RET en la línea 26. Otras requieren un 
operando, como ocurre con las opera- 
ciones PUSH, INT y LOOP. Finalmente, otras 
operaciones como MOV y LEA requieren 
dos operandos separados por una coma. 


Ml 
(um Comentario 


El cuarto y último componente de las 
sentencias es siempre opcional y consiste 
en una cadena de caracteres iniciada 
por el carácter punto y coma. Los co- 
mentarios sirven para documentar el fun- 
cionamiento de los programas y cum- 
plen una misión muy importante, ya que 
los códigos de operación de sólo 3 ó 4 le- 


tras, el profuso uso de los registros y la 
propia versatilidad del lenguaje hacen 
que los programas sin comentarios sean 
difíciimente comprensibles. 

En nuestro ejemplo hemos usado el 
campo de comentario para numerar to- 
das las líneas y poder referirnos a cada 
una de ellas sin confusión. 


. Estructura de los programas 


El lenguaje ensamblador está diseña- 
do para que se puedan escribir progra- 
mas de muy diversa complejidad. Desde 
programas elementales de sólo 30 lí- 
neas, como el que acabamos de comen- 
tar, a aplicaciones muy complejas cons- 
tituidas por decenas de miles de instruc- 
ciones. 

Para facilitar la escritura y puesta a 
punto de los programas, el ensamblador 
permite dividir el código fuente en tantos 
módulos como se desee. Como se vio en 
el tema anterior, dichos módulos se en- 
samblan por separado generando pro- 
gramas objetos que posteriormente se 
reúnen como el LINK para producir el pro- 
grama ejecutable. 

Tambien se ha dicho anteriormente 
que el microprocesador 8088 maneja 
cuatro áreas de memoria, cada una de 
las cuales se direcciona con dos regis- 
tros que reciben el nombre de «registro 
de segmento» y «registro de desplaza- 
miento». 

Recordemos que con un determinado 
valor del «registro de segmento» sólo se 
puede abarcar 64 Kbytes de memoria y 
que si se quiere acceder fuera de esa 
área hay que modificar forzosamente el 
«registro de segmento». 

Pues bien, debido a esta característica 
del 8088 es por lo que la memoria mane- 
jada por los programas debe estar parti- 
cionada en bloques no mayores de 64 
Kbytes, que en la terminología del en- 
samblador se denominan segmentos. 

Esto significa que en todas las senten- 
cias de los módulos fuente que generan 
código tienen que estar encuadradas en 
segmentos. 

La división de un módulo en segmentos 
se puede elegir libremente con la única 
restricción de no pasar de los 64 Kbytes 
en cada uno de ellos. Pero hay que te- 
ner en cuenta que el programa debe in- 
cluir instrucciones específicas para di- 


reccionar cada uno de los segmentos. Lo 
más usual en programas sencillos es for- 
mar un segmento con los datos y otro con 
las sentencias ejecutables, como en el 
ejemplo anterior. En dicho ejemplo las 
instrucciones específicas para direccio- 
nar el segmento de datos están en las lí- 
neas 16 y 17. 


1 Las sentencias SEGMENT 
y ENDS 


Los segmentos se definen con dos sen- 
tencias, la sentencia SEGMENT, que defi- 
ne el comienzo, y la sentencia ENDS, que 
indica el final. En medio de ellas se codi- 
fican todas las sentencias que constitu- 
yen el segmento. 

El formato de estas sentencias es el si- 
guiente: 


nombre-seg SEGMENT [alineamiento] [tipol [*"clase'] 


nombre-seg ENDS 


En la figura anterior y en otras sucesivas 
que irán saliendo, vamos a utilizar la si- 
guiente nomenclatura: lo escrito con mi- 
núsculas son nombres que deben ser ele- 
gidos por el usuario; lo escrito con ma- 
yúsculas son nombres que deben ser co- 
dificados como se indica; y lo encerrado 
entre corchetes son elementos opciona- 
les que pueden ser omitidos. 

nombre-seg. Es el nombre que se le 
quiere asignar al segmento y que debe 
aparecer, tanto en la sentencia SEGMENT 
que indica el comienzo del segmento, 
como en la sentencia ENDS que indica el 
final. La elección del nombre debe ha- 
cerse de acuerdo con las reglas anterior- 
mente expuestas. 

alineamiento. Es un parámetro opcio- 
nal con el que se puede imponer ciertas 
condiciones a la dirección del primer 
byte del segmento. Efectivamente, espe- 
cificando las palabras WORD, PARA o 
PAGE se consigue que la dirección del 
comienzo del segmento esté alineada a 
frontera de palabra, párrafo o página de 
memoria, respectivamente. Es decir, que 
la dirección inicial del segmento sea 
múltiplo de 2, 16 ó 256. También se pue- 
de especificar BYTE, que es lo mismo que 


decir que no se impone ninguna condi- 
ción a la dirección de comienzo de seg- 
mento. Cuado se omite este parámetro 
se realiza el alineamiento a frontera de 
párrafo, igual que si se hubiera especifi- 
cado PARA. 


tipo. Este parámetro es opcional, y sir- 
ve para controlar la posición relativa en 
que se colocarán los distintos segmentos 
cuando se reúnan para formar el módulo 
ejecutable. Es por tanto una información 
que el ensamblador pasará al LINK, que 
es el programa que construye el módulo 
ejecutable. Se pueden especificar las 
palabras PUBLIC, COMMON, STACK, ME- 
MORY y AT. En relación con este paráme- 
tro, rigen las siguientes reglas: 


— Alos segmentos tipo PUBLIC del mis- 
mo nombre se les asignan zonas de me- 
morias contiguas. 


— Alos segmentos tipo COMMON del 
mismo nombre se les asigna una única 
zona de memoria sobre la que todos 
ellos quedan superpuestos. 


— El segmento para el que se especi- 
fique tipo STACK será el que se usará 
como pila de ejecución del 8088. El fun- 
cionamiento de la pila se explicará con 
detalle más adelante. 


— El segmento para el que se especi- 
fique tipo MEMORY será el último segmen- 
to que se situe en memoria. 


— El segmento para el que se especi- 
fique AT seguido de una dirección se 
considerará como una plantilla que ser- 
virá para referenciar la zona de memoria 
especificada. 


“clase”. Este parámetro, que también es 
opcional, consiste en un nombre expre- 
sado entre comillas que define la clase 
a la que pertenecerá el segmento. Esta 
es una facilidad adicional para especiífi- 
car el orden en que se desea que los dis- 
tintos segmentos formen el módulo eje- 
cutable, ya que el LINK situará juntos a to- 
dos los segmentos de la misma clase. 

A continuación se dan los esquemas 
de la división en segmentos de tres pro- 
gramas, que podrían servir de ejemplo 
tanto para formar módulos ejecutables 
independientes como para formar un 
módulo ejecutable único. 


2 MAQUINA 8088 


5 
DATOS1 SEGMENT PAGE 


DATOS1 ENDS 


<----—programa A-----> 


CODIGO1 SEGMENT PUBLIC 


DATOS2 ENDS 
jo 


CODIGO1 SEGMENT PUBLIC 


CODIGO1 ENDS 


<-----programa B-----> 


DATOS2 SEGMENT MEMORY 


<--—-—programa C----> 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTION + DE JUEGOS 


Programas: 

A 150 IF INKEY$="s" THEN 
u quinielas PRINT AT 21,0;" 
L siguiente programa GO TO 180 
nos permitirá la reali- 160 IF INKEY$="n" THEN 
zación de quinielas ER ES 
multiples. El listado 188 
del programa 1 es 170 GO TO 140 
unicamente para el 180 PRINT AT 17,0;"Pulse 1 
SPECTRUM. El progra- a opcion adecuada";AT 19,2;"1.- 
ma 2 es la versión Nombres de equipos";AT 21,2;"2.- 


Apuestas (Signos)" 


para IBM del mismo. 183 IF INKEYS="1" THEN PRIN 


TATATO 
"SAT. 19,23 
REM Mina two e: e 
FLASH 1: PRINT AT 10,8; Mio 
“PARE LA CINTA": INPUT AT 0,0;("Numero de partido 
PAUSE 500: FLASH 0: CLS ?");t: BEEP .4,20: INPUT AT 0,0 
DEF FN K(w,c)=(100*w) /c ¡("Nueva opcion ? "»spS(t): 
BEEP .08,20: BEEP .1,0: GO TO 132 
INPUT "Numero de partid 186 IF INKEY$="2" THEN PRIN 
desarrollar >>>";nap TAE ATLO 
DIM m(nap,2): DIM p$ "SAT AN E 
(nap, 16): DIM M$(nap, 3): CSS o Eo 
DIM t(nap,2): DIM C$(nap ": INPUT 
250) AT 0,0;("Numero de partido ?"); 
40 LET tri=0: LET dob=0 t: BEEP .4,10: INPUT AT 0,0;("Nu 
50 REM Relleno de matrices eva opcion ? "MSC E)S 00 TO 
80 FOR u=1 TO nap STEP 1 132 
90 BEEP .08,20: BEEP .1,0 187 GO TO 180 
100 INPUT AT 0,0;("Partido "; 188 REM Formacion de t(nap, 2 
u);TAB 20;("Apuesta");AT 1,0;("= ) . 
189 FOR i=1 TO nap 
2,05p$(u);("..... >");TAB 20;M3( 190 LET contsig=0 
u) 191 FOR j=1 TO 3 
110 REM Escritura en pantalla 192 IF M$(i,j)<>" " THEN 
111 REM £2:8:8:8:8:8:8.8:8:8:2:8:8:8:8:8:8:8c80 LET contsig=contsig+1 
1% 193 NEXT j 
113 GO SUB 1000 194 FOR j=1 TO 3 
116 PRINT AT u+2,0;u;".-";p 196 IF M$(i,j3)<>" " THEN L 
$(u): FOR v=1 TO 3: ET lug=3: LET ¿=3 
BEEP .04,30: PRINT AT 197 NEXT j 
u+2, 19+v;M$(u,v): NEXT v 198 LET t(i,1)=1lue: 
117 NEXT u LET t(i,2)=contsig 
118 GO SUB 1000 199 NEXT i 
132 CLS 210 FOR 1=1 TO nap 
137 GO SUB 3000 220 LET m(1,2)=t(1,1) 
140 PRINT AT 21,0; 230 NEXT 1 
"Desea alguna correccion 250 REM HittiDesarrollot+R49848 


? (s/n)" $ 
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LET k=1 
GO SUB 6000 
LET aux=nap 
LET izaux 
IF m(i,2)<4 THEN 
GO SUB 5000: GO SUB 70 
GO TO 420 , 
LET m(i,2)=t(i,1) 
LET i=i-1 
IF i=0 THEN CLS : 
GO SUB 7500: STOP 
LET m(i,2)=m(i,2)+1 
IF m(i,2)=4 THEN GO TO 
480 do 
IF M$(i,m(i,2))=" " THEN 
GO TO 460 
GO TO 410 
LET m(i,2)=t(1,1): GO TO 
440 


PLOT 0,40: DRAW 252,0: DRA 


,116: DRAW -252,0: DRAW O, 


IN AS OA 


FOR u=1 TO nap 

PRINT AT u+2,0;u;".-";p$ 
u): BEEP .02,-10: FOR v 
=1 TO 3: PRINT AT u+2, 
21+v;M$(u,v): NEXT v 

NEXT u 

GO SUB 1000 


a AA AA 5000... 


FOR j=1 TO nap 

PRINT AT j¿+2,29;M$(j,m(j, 

2)) 

LET C$(j,k)=M$(j,m(j,2)) 
BEEP .009,20 
NEXT j¡ 

PRINT AT 0,23;"VALIDA ?"; 
AT 1,26;,"(s/n)" 

IF INKEY$="n" THEN GO TO 
5030 

IF INKEY$="s" THEN LET 
K=K+1: GO TO 5030 

GO TO 5022 

PAUSE O 

LET m(i,2)=m(i,2)+1 

IF m(i,2)>3 THEN RETURN 
IF M$(i,m(i,2))=" ” THEN 

GO TO 5030 


ISSO ISS ISSO lSlOlOIOIOIOK: 
k QUINIELAS k 
IAGIOIOOIOIOIO OOOO lSJSlOIRIOISIOIRIOIOIOIOIO OK: 
* POR Fco. Morales 
SSA SS SISSI ISSO O JOllOlSISIOIOIOK 


SOS IS SISSI lalo lO IOIOIOIOK: 
Xx (c) Ed. Siglo Cultural x 
* (c) 1987 k 
ISO SIS IOOJSISIO Ill IOIOIOIOIOIOIOK: 


5555 

5556 é 

6000 REM ...sub.costo 

6005 LET tri=0: LET dob=0 

6010 FOR p=1 TO nap 

6020 IF t(p,2)=3 THEN LET 
tri=tri+1: GO TO 6040 

6030 IF t(p,2)=2 THEN LET 
dob=dob+1 

6040 NEXT p 

6050 LET Numcol=INT ((2”dob)x 

(3”*tri)) 

6060 LET Costo=Numcolx*15 

6100 RETURN 

6101 REM .. 

7000 REM ....sub.porcen 

7030  PRINT AT 0,0; '"COLUM. TOT. > 

> "; INT (NUMCOL);AT 1,0;"COSTO T 

OT.>> "¡INT (COSTO);"Pt8.*" 

7040 PRINT AT 17,0;"Columnas se 

leccionadas>> ";K-1;AT 21,0;"HAS 

TA AHORA>> ";(K-1)*15;"Pts. ";AT 

19,1;(FN K(K-1,Numcol));TAB 12;" 

% all4" 

7100 RETURN | 

T101 REM... 


7499 REM ....sub..copiar 


7500 LET h=0 

7510 FOR x=0 TO k*2 STEP 2 

7515 LET h=h+1 

7520 FOR z=1 TO nap 

7522 IF x>=30 THEN PRINT AT 20 
,1;"Quieres mas ? (s/n)": BEEP 1 
,-20: GO TO 7560 

7530 PRINT AT z,x;C$(z,h): BE 

EP” .01,20 

7536 IF C$(z,h)=" " THEN PRIN 
T AT 20,0;"ESTO SE HA ACABADO. $$ 
SUERTE $$": GO TO 7600 

7545 GO TO 7580 

7560 IF INKEY$="s" THEN CLS : 
LET h=h-1: GO TO 7510 

7565 IF INKEY$="n" THEN CLS : 
PRINT AT 11,2;"BUENA SUERTE LES 
DESEA ESTE ZX-SPECTRUM": STOP 

7570 GO TO 7560 

7580 NEXT z 

7585 NEXT x 

7600 RETURN 

76801- REM ,. subo” 


1100 REM 

1110 DEF FNK(W,C)=(100*W)/C 

1120 CLS 

1130 LOCATE 10,1 

1140 INPUT "Numero de partidos a desarrollar > ",NP 
1150 DIM M(NP,2):DIM P$(NP):DIM MS(NP):DIM T(NP,2):DIM C$(NP) 
1160 FOR I=1 TO NP 

1170 LET C$(1)=" Z 

1180 NEXT I 

1190 LET LR=0 

1200 LET DO=0 

1210 REM 

1220 REM *x** RELLENO DE MATRICES  *x*x 

1230 REM 

1240 CLS 

1250 PRINT "PARTIDO APUESTA" 
1280 PRINT “======= =======" 
1270 FOR U=1 TO NP 

1280 LOCATE 3+0, 1 

1290 LINE INPUT "",P$(U) 

1300 LOCATE 3+U,36 

1310 LET SW=0 

1320 LINE INPUT "",M$(U) 

1330 IF LEN(M$(U))>3 THEN GOTO 1300 

1340 FOR I=1 TO LEN(M$(U)) 

1350 IF MID$(M$(U),1I,1)<>"1" AND MID$(M$(U),I,1)<>"X" AND MID$(M$(U),1,1)< 
>"2" THEN LET SW=1 

1360 NEXT I 

1370 IF SW=1 THEN GOTO 1300 

1380 LET M$(U)=LEFT$(M$(U)+" MED, 

1390 NEXT U 

1400 CLS:PRINT:PRINT:PRINT 

1410 PRINT "No. PARTIDO APUESTA” 
1420 PRINT "=== (Sis=== A 
1430 FOR U=1 TO NP 

1440 LOCATE 6+0, 1 

1450 PRINT U 

1460 LOCATE 6+0,6 

1470 PRINT P$(U) 

1480 LOCATE 6+U, 33 

1490 PRINT M$(U) 

1500 NEXT U 

1510 LOCATE 22,1 

1520 PRINT "QUIERES MODIFICAR ALGUNO (S/N) 

1530 LET A$=INKEY$: IF A$="" THEN GOTO 1530 

1540 IF A$="S" OR A$="s" THEN 1570 

1550 IF A$="N" OR A$="n" THEN GOTO 1720 

1560 GOTO 1530 

1570 LOCATE 22,1 

1580 PRINT "1.- MODIFICAR PARTIDO E 

1590 PRINT "2.- MODIFICAR APUESTA E: . 
1600 LET A$=INKEY$: IF A$="" THEN GOTO 1600 

1610 IF A$<>"1" AND A$<>"2" THEN GOTO 1600 

1620 LOCATE 22,1 

1630 PRINT SPACE$(80) 

1640 LOCATE 22,1 

1650 INPUT "DE QUE PARTIDO? “,U 

1660 IF U<1 OR U>NP THEN GOTO 1620 

1670 ON VAL(A$) GOTO 1680, 1700 

1680 INPUT "NOMBRE DEL PARTIDO > ",P$(U) 

. 1690 GOTO 1400 

1700 INPUT "APUESTA > ",M$(U) 

1710 GOTO 1400 

1720 LOCATE 22,1 

1730 PRINT SPACE$(40) 

1740 LOCATE 22,1 

1750 PRINT "ESPERA UN MOMENTO" 

1760 REM 
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1770 REM **x*x CALCULO *xxk 

1780 REM 

1790 FOR I=1 TO NP 

1800 LET CT=0 

1810 FOR J=1 TO 3 

1820 IF MID$(M$(1),J,1)<>" " THEN LET CT=CT+1 

1830 NEXT J 

1840 FOR J=1 TO 3 

1850 IF MID$(M$(1),J,1)<>" " THEN LET LG=J:LFT J=3 

1860 NEXT J 

1870 LET T(I,1)=LG 

1380 LET T(I,2)=CT 

1890 NEXT I 

1900 FOR L=1 TO NP 

1910 LET M(L,2)=T(L, 1) 

1920 NEXT L 

1930 LOCATE 22,1 

1940 PRINT SPACE$(40) 

1950 REM 

1960 REM *x*x* DESARROLLO x*xx 

1970 REM 

1980 LET K=1 

1990 GOSUB 2270 

2000 LET AX=NP 

2010 LET I=AX 

2020 IF M(1,2)<4 THEN GOSUB 2110:GOSUB 2370:GOTO 2020 

2030 LET M(1,2)=T(1,1) 

2040 LET I=I-1 

2050 IF I=0 THEN CLS:GOSUB 2470:END 

2060 LET M(1,2)=M(1,2)+1 

2070 IF M(1,2)=4 THEN GOTO 2100 

2080 IF MID$(M$(1),M(1,2),1)=" " THEN GOTO 2060 

2090 GOTO 2010 

2100 LET M(1,2)=T(1,1):GOTO 2040 

2110 REM 

2120 FOR J=1 TO NP 

2130 LOCATE 6+J,38 

2140 PRINT MID$(M$(J),M(J,2),1) 

2150 LET C$(J)=LEFT$(C$(J),K-1)+MID$(M$(J),M(J,2),1)+MID$(C$(J),K+1) 
2160+.NEXT J 

2170 LOCATE 1,30 

2180 PRINT "(VALIDA? (S/N)":BEEP 

2190 LET A$=INKEY$ 

2200 IF A$="N" OR A$="n" THEN GOTO 2230 

2210 IF A$="S" OR A$="s" THEN LET K=K+1:GOTO 2230 

2220 GOTO 2190 

2230 LET M(1,2)=M(1,2)+1 

2240 IF M(1,2)>3 THEN RETURN 

2250 IF MID$(M$(1),M(1,2),1)=" " THEN GOTO 2230 

2260.RETURN 
2270 REM 
2280 LET TI= 
2290 LET DB= 
2300 FOR P=1 
2310 IF -T 
2320 IF T 
2330 NEXT P 
2340 LET NM=INT((2”DB)*(3”T1)) 

2350 LET CS=NMx15 

2360 RETURN 

2370 REM 

2380 LOCATE 1,1 

2390 PRINT "COLUMNAS TOTALES = ";INT(NM) 
2400 LOCATE 2,1 

2410 PRINT “COSTO TOTAL 
2420 LOCATE 22,1 

2430 PRINT "COLUMNAS SELECCIONADAS = ";K-1 
2440 PRINT "HASTA AHORA ";(K-1)X15;" PTS." 


0 
0 


N 
)=3 THEN LET TI=TI+1:GOTO 2330 
) 


( 
( =2 THEN LET DB=DB+1 


, 
, 


";INT(CS);" PTS.” 


2450 PRINT FNK(K-1,NM);" % A LOS 14"; 
2460 RETURN 

2470 CLS 

2480 LET H=0 

2490 FOR X=0 TO Kx*2 STEP 2 

2500 LET H=H+1 

2510 FOR Z=1 TO NP 


INT "SUERTE": RETURN 


2620 NEXT X 
2630 RETURN 


Las correcciones que hay que hacer 
para que el programa pueda funcionar 
en el COMMODORE, AMSTRAD y MSX son 
las siguientes: 


COMMODORE: 


1120 PRINT CHR$(147) 

1130 POKE 214,9:POKE 211,0 

1240 PRINT CHR$(147) 

1280 POKE 214,2+U:POKE 211,0 
1300 POKE 214,2+U:POKE 211,35 
1400 PRINT CHR$(147):PRINT:PRINT:PRINT 
1440 POKE 214,5+U:POKE 211,0 
1460 POKE 214,5+U:POKE 211,5 
1480 POKE 214,5+U:POKE 211,32 
1510 POKE 214,21:POKE 211,0 

1530 GETAS 

1570 POKE 214,21:POKE 211,0 

1660 GET AS 

1620 POKE 214,21:POKE 211,0 

1630 FOR l=1 TO 80:PRINT * ";:NEXT | 
1640 POKE 214,21:POKE 211,0 

1720 POKE 214,21:POKE 211,0 

1730 FOR l=1 TO 80:PRINT “ ”;:NEXT | 
1740 POKE 214,21:POKE 211,0 

1930 POKE 214,21:POKE 211,0 

1940 FOR l=1 TO 40:PRINT “ ”;:NEXT | 
2130 POKE 214,5+J:POKE 211,37 
2170 POKE 214,0:POKE 211,29 

2190 GETAS 

2380 POKE 214,0:POKE 211,0 

2400 POKE 214,21:POKE 211,0 

2470 PRINT CHR$(147) 


2520 * IF X>=40 THEN LOCATE 22,1:PRINT "QUIERES MAS (S/N)":GOTO 2570 

2530 LOCATE Z+1,X+1 

2540 PRINT MID$(C$(Z),H,1) 

2550 IF MID$(C$(Z),H,1)=" " THEN LOCATE 22,1:PRINT "ESTO SE HA ACABADO":PR 


2560 GOTO 2610 

2570 LET A$=INKEYS$ 

2580 IF A$="S" OR A$="s" THEN CLS:LET H=H-1:GOTO 2490 

2590 IF A$="N" OR A$="n" THEN LOCATE 22,1:PRINT "BUENA SUERTE": END 
2600 GOTO 2570 

2610 NEXT Z 


2520 IF X>=39 THEN POKE 214,21:POKE 
211,0:PRINT “QUIERES MAS (S/N)”:GOTO 
2570 

2530 POKE 214,Z:POKE 211,X 

2550 IF MIDS(C$(Z) ,H,1)=" ” THEN POKE 
214,21:POKE 211,0:PRINT “ESTO SE HA ACA- 
BADO”:PRINT “SUERTE”:RETURN 

2570 GETAS 

2580 IF A$="S” OR A$="s” THEN PRINT 
CHR$(147):LET H=H+1:GOTO 2490 

2590 IF AS="N” OR A$="n” THEN POKE 
214,21:POKE 211,0:PRINT “BUENA SUER- 
TE”:END 


AMSTRAD Y MSX: 


Para que el programa funcione en es- 
tos ordenadores lo único que hay que 
hacer es cambiar de orden los argumen- 
tos de todas las sentencias LOCATE del 
programa. Por ejemplo, si tenemos la li- 
nea 1440 


1440 LOCATE 6+U, 1 


para pasar esta línea al MSX y al AMS- 
TRAD tendremos que poner: 


1440 LOCATE 1,6+U 


Este programa nos permitirá meter el 
nombre de hasta veinticuatro equipos de 
fútbol emparejados de dos en dos. Una 
vez que éstos se encuentran en memoria, 
el programa nos pedirá que rellenemos 
la quiniela como nosotros queramos. A 
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continuación nos aparecerán en la pan- 
talla la lista de todos los equipos que he- 
mos introducido seguida de la lista de los 
resultados de los partidos. Se le pregun- 
tará al usuario si quiere realizar alguna 
modificación. En caso afirmativo, se pre- 
guntará el número de partido, si quere- 
mos cambiar el nombre o el resultado y 
la variación que queremos realizar. 


xo MXX 


Xx 


A 
1 
Xx 
2 
x 
x 
1 
PA 
= 
1 
x 
1 
2 


[A ¿Desea alguna corrección? (s/n). 


Si no queremos realizar ninguna modi- 
ficación o ya hemos modificado todo lo 
que queríamos, nos aparecerá una nue- 
va pantalla dentro de la cual se desarro- 
llará todo el resto del programa. En esta 
pantalla, aparte de aparecer la lista de 
los partidos y las apuestas, nos aparece- 
rán los siguientes datos: 


— Número total de columnas realiza- 
das. 

— Coste total de la apuesta con todas 
las columnas. 

— Posibilidades de sacar catorce re- 
sultados. 

— Número de columnas selecciona- 
das. 


— Coste de las columnas selecciona- 
das. 


o 
a 
Él 
a 
a 

L 
a 
a 
z 

y 
ñ 
a 
r 
e 

c 


3 
” 
t 
1 
” 
m 
1 
i 
al 
U 
Te 
i 
8 


yb rr alex fu 
| x Xx XxX 


cecionmadas 
o 3114 
HASTA AMHORA>)> BOP. 


A continuación irán desfilando ante 
nuestros ojos todas las columnas posibles 
en la quiniela. Cada vez que aparezca 
una columna tendremos que pulsar si es 
válida o no. En caso negativo, el ordena- 
dor no la tendrá en cuenta, pero en caso 
positivo, la almacenará para volver a im- 
primirla más tarde. 

Una vez que se han visualizado todas 
las columnas posibles, éstas aparecerán 
por pantalla de forma independiente y 
una auna. 


¡O Programa: Cálculos infinitos 


El siguiente programa que vamos a ver 
nos permitirá sumar y restar números en- 
teros de cualquier longitud. El programa 
está preparado para detectar errores. 
Por ejemplo, si en vez de un número te- 
cleamos una letra o un signo de puntua- 
ción, el ordenador nos dirá que nos he- 
mos equivocado. 


EEE ETES 


FOO 
FoSOlOlOR: 
JOGO GITUD POR NUMERO) 


SUMA Y RESTA DE NUMEROS ENTEROS (SIN SIGNO) CON 
PRECISION INFINITA (HASTA 255 CARACTERES DE LON- 


AMOO 
ES 
ES 


EEES 


EEES 


FR AUTOR JUAN MANUEL GUTIERREZ LEITON MMMM 
AO OOOO OOO OOOO OOO OOOO OOOO OOOO OOOO OOOO lo ojodok 


110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 


170. 


171 
172 
173 
174 
175 
176 


REM SS SS ISS ISSO Sl lalalala lalalala lalo lalalala lolo olok 
REM ARSS (C). EDICIONES SIGLO CULTURAL, 1987 AOS OlOJOJOJOOJOK 
NS 
CLS ñ 

INPUT "Dame el primer numero ";N$(1) 

LET R$=N$(1) 

GOSUB 164 

IF ER=1 THEN GOSUB 174 :GOTO 113 

LET L1=LEN(N$(1)) 

LET T=1 

GOSUB 318 

LET L1=Li-NC 

INPUT "Dame el segundo numero”";N$(2) 

LET R$=N$(2) 

GOSUB 164 

IF ER=1 THEN GOSUB 174 :GOTO 122 

LET L2=LEN(N$(2)) 

LET T=2 

GOSUB 316 

LET L2=L2-NC 

INPUT "dame el tipo de operador (+,-)";0$ 

IF LEN(O$)>1 THEN PRINT"OPERACION NO VALIDA":GOTO 130 
IF O$<>"+" AND O$<>"-" THEN PRINT"OPERACION NO VALIDA":GOTO 130 
IF O$="+" THEN GOTO 156 

LET F=1 

IF L1>L2 THEN GOTO 137 

GOTO 139 

GOSUB 188 

GOTO 160 

IF L1<L2 THEN GOTO 141 

GOTO 149 

LET L=Li 

LET L1=L2 

LET L2=L 

LET I$=N$(1) 

LET N$(1)=N$(2) 

LET N$(2)=1$ 

GOSUB 188 

GOTO 159 

IF N$(1)<N$(2) THEN 151 

GOTO 156 

LET I$=N$(1) 

LET N$(1)=N$(2) 

LET N$(2)=1$8 

GOSUB 255 

GOTO 159 

IF L1>L2 THEN GOSUB 188:GOTO 160 

IF L1<L2 THEN GOSUB 215:GOTO 160 

GOSUb 255 :GOTO 160 

AS=A$+"-" ! 
GOSUB 285 

PRINT N$(3) 

END 

REM . 

REM SSI OS SISSI SII loloJOIOK: 
REM ao RUTINA DE CHEQUEO DE LOS NUMEROS ootoiook 
REM SS SOS Olla llSlSlSlOlOJOIOK: 


«REM 


FOR I=1 TO LEN(R$) 
K$=MID$(R$, 1,1) 
IF K$<"0" OR K$>"9" THEN LET ER=1:GOTO 173 
NEXT I 
LET ER=0 
RETURN 
REM asa III III lolo lOlIoTOK 
REM MMMMOOIdooKk rutina de errores de entrada MMRAdMIOdIOOIMIOIOIOÓIOIOIOoRoIOlooIojoK 
REM SS aSIO SISSI III Illa llo IOlOloIOJOK 
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177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 


CLS 
PRINT "EL CARACTER "; 
PRINT K$; 
PRINT " NO ES VALIDO" 
PRINT:PRINT:PRINT:PRINT: PRINT 
PRINT "PULSE UNA TECLA PARA VOLVER A EMPEZAR” 
LET A$=INKEY$ 
IF A$="" THEN GOTO 183 
CLS 
RETURN 
REM 
IN A EEES 
REM * SUBRUTINA DE SUMA/RESTA DE STRINGS CUANDO EL N1 ES MAYOR QUE N2 x* 
REM ASS IS OS SISlEISIOIOOOSISIO IO SSISIO OOOO IO O IOIOIOIO OI RO OI OIOIOOOIOIOIOIOOIOIOIOOIOOIOOOK 
REM y 
LET AC=0 
O 
DR SEL 
FOR I=L2 TO 1 STEP -1 
LET C$=MID$(N$(1),J,1) 
LET D$=MID$(N$(2),1,1) 
LET J=J-1 
IF F=1 THEN GOSUB 299 :GOTO 201 
GOSUB 240 
NEXT 1 
FOR I=L1-L2 TO 1 STEP -1 
LET C$=MID$(N$(1),1,1) 
LE? D$="0" 
IF F=1 THEN GOSUB 299 :GOTO 207 
GOSUB 240 
NEXT I' 
IF F<>1 THEN GOSUB 273 
RETURN 
REM 
IN E E EEES 
REM * FIN DE LA SUBRUTINA DE SUMA/RESTA DE STRINGS * 
REM ASS IO OOOO OOO OJOS O OOOO OOOO alli oJok 
REM 
REM A OOOO OOOO OOOO OOO OOO OOO OOO OOOO OOOO OOOO OOO OOOO OOOO OK 
REM * SUBRUTINA DE SUMA DE STRINGS CUANDO N2 ES MAYOR QUE N1 * 
REM AROS OSOS OOOO OOOO OOOO OOOO OOOO OOO OOO OOO OOOO OOOO IO OOOO OK 
REM 
LET AC=0 
LET A$="" 
RT J=52 
FOR I=L1 TO 1 STEP -1 
LET C$=MID$(N$(1),[,1) 
LET D$=MID$(N$(2),J,1) 


LET J=J-1 
GOSUB 240 

NEXT I 

FOR I=L2-L1 TO 1 STEP -1 
LET C$="0" 
LET D$-MID3(N$(2),1,1) 
GOSUB 240 

NEXT 1 

GOSUB 273 

RETURN 

REM 


NES 


REM * FIN DE LA SUBRUTINA DE SUMA DE STRINGS CUANDO N2 ES MAYOR QUE Ni x 
REM SOS SSI Illa 


REM RSS Sala SIS ISS SISSI alalalOlOlOJOJOK 
REM * SUBRUTINA DE SUMA DE DOS CARACTERES * 


REM ARSS SS SISSI S SS SISISjOS SSI” lldlojoOioOk 


LET SU=VAL(C$)+VAL(D$)+AC 


245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 


IF SU >= 10 THEN LET AC=1 
IF SU < 10 THEN LET AC=0 
N$=CHR$((SU MOD 10)+ASC("0"”)) 
LET A$=A$+N$ 
RETURN 
REM 
REM RSS ISSO ISSO IRIS III Ill: 
REM * FIN DE LA SUBRUTINA DE SUMA DE DOS CARACTERES *X 
REM ASAS S II R O IIR IRlll lolo lalolojoloJok 
REM 
REM SMS ISS ISS ISSN III lOIOIJJOK 
REM * SUBRUTINA DE SUMA/RESTA DE STRINGS CUANDO N1 ES IGUAL A N2 x 
REM SISSI ISSO III lll lolo look: 
REM 
LET AC=0 
LET A$="" 
FOR I=L1 TO 1 STEP -1 
LET C$=MID$(N$(1),1,1) 
LET D$=MID$(N$(2),1,1) 
IF F=1 THEN GOSUB 299 :GOTO 266 


GOSUB 240 
NEXT I 
IF F<>1 THEN GOSUB 273 
RETURN 
REM 


REM ASS OSORIO OOOO ISSO” 
REM * FIN DE LA SUBRUTINA DE SUMA/RESTA DE STRINGS * 
REM ARO IOIOOIOOO IO ISOSOlOI IO l jojojo lololoJo lok 
REM 
INS 
REM * SUBRUTINA POR SI LA ULTIMA SUMA DA DE ACARREO 1 * 
REM AMOO ISI lOIOIOIOJOIOK: 
REM 
IF AC=1 THEN LET A$=A$+"1" 
RETURN 
REM 
REM ARSS ISI IOIOIOIOIOIOK: 
REM * FIN DE LA SUBRUTINA DE ACARREO * 
REM ASES SOSIOIOlIO IO IOIS IO IOlOIOK: 
REM 
REM AMAS OOOO ISI lolo jojojo OK 
REM * SUBRUTINA DE INTERCAMBIO DE A$ * 
REM AMOO OSORIO ISI lolo lolo jo 
REM 
LET N$(3)="" 
FOR I=LEN(A$) TO 1 STEP -1 " 
LET N$(3)=N$(3)+MID$(A$, 1,1) 
NEXT I 
RETURN 
REM 
REM AMS SSI ISSO lolOIoIO OK 
REM * FIN DE LA SUBRUTINA DE INTERCAMBIO DE A$ * 
REM AOS IO OOOO IO IOIO OOOO IOIOIOIOIOJOK 
REM 
REM ASS IO jala jolololo look 
REM * SUBRUTINA DE RESTA DE DOS: CARACTERES *x 
REM AMOO ISSO OOOO Ilo IO OI IOIO TOOK 
REM 
IF VAL(C$)<(VAL(D$)+AC) THEN GOTO 307 
LET RE=VAL(C$)-(VAL(D$)+AC) 
LET AC=0 
GOTO 309 : 
LET RE=10+(VAL(C$)-(VAL(D$)+AC)) 
LET AC=1 
LET N$=CHR$(RE+ASC("0”)) 


310 LET A$=A$+N$ 


311 
312 


RETURN 
REM 
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REM AMS SISSI SS SISSI lll jala lalalala lalalala jojojo lok 
314 REM * FIN DE LA SUBRUTINA DE RESTA DE DOS CARACTERES *x 
315 REM A*MSSSSSSSS SSI SEIS jSjOlSS Sl” ffO SS ljlO dla la laa lalOlajololojojok 
316 REM 

317 REM AdRaaSS OSOS ldlE OSOS lolojok 
318 REM * SUBRUTINA DE SANGRADO DE N$(i) POR SI EMPIEZA POR CEROS * 
319 REM daa lSddSlS lO lOjOlS SES lESjOjOlSE ISSO lSSl]S lll” lalola lalala jolla lalalala la lolololololok 
320 REM 

321 LET NC=0 

322 FOR I=1 TO LEN (N$(T)) 

323 IF MID$(N$(T),I,1)="0" THEN LET NC=NC+1:GOTO 325 

324 GOTO 326 

325 NEXT I 

326 IF NC<>0 THEN GOTO 328 

327 GOTO 333 

328 LET R$=NS$(T) 

329 LET N$(T)="" 

330 FOR I=NC+1 TO LEN(R$) 

LET N$(T)=N$(T)+MIDS(RS, 1,1) 


REM ASS ISSIOSSIOSlSlSSIOSSISSIOlSOIlOS IO OSlSlS lo llOl lO f lO IOlSSlOlS Olof lOlOlOIOJOlOJOK 


336 REM * FIN DE LA SUBRUTINA DE SANGRADO POR SI N$(i) EMPIEZA POR CEROS x* 
REM ASSIM lIIlIjIllllallao ala loJok 


El programa es válido para todos los or- mente y sin cambios en el IBM, AMSTRAD 
denadores con sólo modificar algunas lí- y MSX. Para el SPECTRUM y COMMODORE, 
neas. El programa funcionará perfecta- estas modificaciones son: 


COMMODORE: 


113 PRINT CHR$(147) 

177 PRINT CHR$(147) 

183 GET AS 

185 PRINT CHR$(147) 

247 LETINS=CHRS ((SÚ-INT(SU/10))+ASC(“0“)) 
N$=CHRS((SU-INT(SU/10)0+ASC(“0”) 


SPECTRUM: 


113 CLS:DIM N$(3,300) 
159 LET AS=A$+"“-" 
162 STOP 

169 LET K$=R$() 

196 LET C$=NS(1,J) 
197 LET DS=NS(2,1) 
203 LET C$=N$(1,1) 
223 LET CS$=NS(1,1) 
224 LET DS=N$(2,J) 
230 LET ri ai 
247 LET N$=CHR$((SU-INT(SU/10))+CO- 
DE(*0”)) 

262 LET C$=NS$(1,1) 
263 LET DS=NS$(2,1) 


291 LET NS(3)=N$(3)+A$() 
309 LET NS=CHRS(RE+CODE(“0”)) 
323, ía NSCT,I)="0” THEN LET NC=NC+1:GO- 


331 LET NSCM)=NS()+RSC(D 


(A Resultado de restar dos números muy ¡A Resultado de sumar dos números muy 
largos. cortos. 


10) Definición 


de procesos 


ON mucha frecuen- 
cia los procesos a es- 
tablecer con los da- 
tos, para su presenta- 
ción en los informes 
de salida, son senci- 
llos e, incluso en oca- 
siones, obvios; en es- 


TECNICAS DE ANALISIS 


ESTRUCTURA Y PROCESOS INTERNOS 


tos casos, una breve anotación para el 
programador puede ser suficiente. Por el 
contrario, en numerosos casos es útil ha- 
cer una definición precisa y expresa de 
los procesos y cálculos a realizar. Con- 
viene entonces reunir en el dossier del 
análisis la definición de estos procesos 
para su fácil consulta y para asegurar la 
coherencia total del proceso. 
Normalmente se suele preparar un do- 
cumento preimpreso (como el que apa- 
rece en la figura 1) para una más clara y 
concisa presentación de los datos. 


DEFINICION DE PROCESO 


Código ......... 
Programa .. 
UTILIDAD ....... 


PET O li Oremos | 


OPERANDOS 


Se comienza con los datos de identifi- 
cación: nombre del proceso (si se quie- 
re dar alguno), código de letras y núme- 
ro (normalmente referido a la aplicación 
y al programa de que se trata) y referen- 
cia del programa en que se realizarán los 
cálculos; se suele incluir un comentario, 


a continuación, sobre el objeto general 
del proceso que se describe. El cuerpo 
del documento está formado por la defi- 
nición de los cálculos a realizar (descrip- 
ción liteal, fórmulas, etc.) con indicación, 
a la derecha y para cada cálculo descri- 
to, de los operandos que intervienen. 


En esta primera parte se suele poner el 
nombre mnemotécnico de los operan- 
dos para, en la parte inferior del docu- 
mento, describirlos con detalle, hacien- 
do referencia al resto de documentos en 
los que estos datos de entrada vienen es- 
pecificados. 


O Tablas de decisiones lógicas 


Para aclarar las relaciones entre los da- 
tos a procesar se suele incluir un docu- 
mento adicional donde se indiquen ex- 
presamente estas relaciones. Puede ser 
una simple lista de relaciones, en el caso 
más sencillo, o bien una tabla de deci- 
sión como las ya descritas anteriormente 
en estas notas. Es importante que las re- 
laciones queden patentes de un modo 


claro: el analista debe decidir el modo 
de presentación de la información. 


== Datos interrelacionados 
e históricos 


Es básico en cualquier aplicación el es- 
tablecimiento de ficheros históricos para 
recuperación de los datos en el futuro, 
bien en los procesos normales (cierre de 
ciertos períodos de funcionamiento del 
sistema), bien cuando se produce algún 
error y es necesario rehacer los ficheros 
básicos del proceso. 

Para reseñar el establecimiento y ma- 
nejo de los ficheros históricos de la apli- 
cación se suele utilizar un formulario 
como el que aparece en la figura 2. 


FICHERO DE DATOS HISTORICOS 
NombDIStSINCHOTrOo....mcinr dto ialo tes pega aria 


Versiones existentes 
Identificación Contenido Vigencia 


En él aparece, junto al nombre e iden- 
tificación (código) del fichero, la identifi- 
cación individual de las diferentes versio- 
nes con indicación de su contenido y ex- 
presión de la vigencia o utilidad en el 
tiempo. 

En dos grupos de datos se suelen in- 
cluir: en uno de ellos, el manejo de las di- 
ferentes versiones existentes del fichero; 
en el otro, los campos que contienen. Se 
reseña para cada paso el proceso de 
entrada, el de salida (por sus códigos de 
identificación) y la versión del fichero 
que se utiliza. En el grupo de datos refe- 
rido a la descripción de campos se han 
de señalar exclusivamente aquellos que 
son de interés desde el punto de vista de 
variación, con las diferentes versiones 
históricas existentes; para cada uno de 
ellos se indica su vigencia o caducidad, 
después de los datos necesarios para 
conocer su identificación y ubicación. 


Relación general de campos, 
referencias 
y datos utilizados 


Es útil incluir una relación general de to- 
dos los códigos que aparecen en la apli- 
cación, con indicación de los datos ne- 
cesarios para su descripción. Suele ser 
una lista donde, detrás de cada código, 
aparecen en dos columnas los _docu- 
mentos en los que se definen los códigos 
y los programas donde se utilizan. Es 
usual preparar dos relaciones de este 
tipo: una general, por riguroso orden al- 
fabético de todos los códigos; otra en 
que aparecen agrupados (por tipo) los 
diferentes códigos existentes: campos 
de los ficheros, nombres de los propios fi- 
cheros, nombres de datos, nombres de 
programas, etc. 


OMO hemos visto en 
los capítulos anterio- 
res, una variable tie- 
ne un nombre y uno o 
varios valores, que 
pueden disponerse 
de acuerdo con una 
estructura determina- 
da. Pero, además, estos valores pueden 
pertenecer a uno u otro tipo de datos: 
podrían ser numéricos o literales, ente- 
ros, reales en precisión normal o en pre- 
cisión doble, etc. Uno de los problemas 
principales que hay que abordar en casi 
todos los lenguajes de programación 
consiste en saber qué sucede cuando a 
una variable de un tipo determinado se 
le asigna un valor de un tipo diferente. 
Por ejemplo, cuando a una variable de 
tipo entero se le asigna un valor con de- 
cimales, o viceversa. 

Cada lenguaje de programación toma 
sus propias decisiones respecto a esto. 
En APL, por ejemplo, una variable no tie- 
ne tipo intrínseco, sino que toma automá- 
ticamente el tipo de los valores que se le 
asignan. La misma variable X podría ser, 
dependiendo de lo que se le asigne, ahora 
una matriz de numeros enteros, luego un 
vector de caracteres, más tarde un nú- 
mero único con decimales. Por lo tanto, 
la cuestión de la conversión de tipos no 
se presenta en este lenguaje. Veamos un 
ejemplo: 


Xe3 3p19 
x 


TECNICAS 
DE PROGRAMACIÓN 


CONVERSION DE TIPO EN LA ASIGNACIÓN 
DE VALORES A UNA VARIABLE 


Se observará que, en APL, para pregun- 
tar cual es el valor de una variable basta 
con escribir su nombre. Además, también 
es posible preguntar cuál es la estructu- 
ra o forma de la variable, para lo cual 
basta con anteponer a su nombre la le- 
tra griega «rho». En el ejemplo anterior, 
primero hemos asignado a X una tabla 
de 3 filas y 3 columnas con valores igua- 
les a los números del 1 al 9. Por eso, «rho» 
X nos salió igual a 3 3 (3 filas y 3 colum- 
nas). A continuación, asignamos a X la 
cadena de caracteres 'ABCD', lo que 
pudo realizarse sin ninguna dificultad, 
con lo que «rho» X pasó a ser 4 (pues 
'ABCD' tiene cuatro elementos). Por últi- 
mo, asignamos a X el valor 2.5, un esca- 
lar, con lo que «rho» X vino a valer un vec- 
tor vacío (ésta es, por convenio, la es- 
tructura de un escalar en APL), lo que se 
indica en el programa con una línea en 
blanco. 


La cuestión es algo diferente cuando 
se intenta asignar un valor de cierto tipo 
a un solo elemento de una variable cuyo 
tipo es diferente. Por ejemplo, suponga- 
mos que tenemos una serie de datos for- 
mados por los números enteros del 1 al 8 
y que le asignamos al tercer elemento de 


la serie el valor 2.5. Pues bien: en APL 
(donde externamente no hay más tipos 
que el numérico y el literal) la serie ente- 
ra es convertida internamente, de forma 
automática, al tipo necesario para po- 
der albergar un elemento con deci- 
males: 


X+-18 | 
X | 


AS O 
X(31+2.5 


1 


XxX 
12. 2:545106. 79 


Es decir, a cualquier elemento de una 
serie o tabla numérica puede asignárse- 
le siempre un valor numérico cualquiera. 
Sin embargo, no debe asignársele un va- 
lor literal, pues números y caracteres no 
pueden mezclarse. Si lo intentamos, ob- 
tendremos un mensaje de error: 


Xx+-18 


x 
1234.56 7.8 

Xx[3]+-'A' 
DOMAIN ERROR 
X[31+-'A' 
A 


Tampoco será correcto tratar de asig- 
nar varios elementos a uno solo: 


x 
123456758 

x(311 2 3 
RANK ERROR 
X[3J+1 2 3 


A 


En BASIC, las variables tienen tipo. Esto 
quiere decir que una variable definida 
como entera, no podrá contener jamás, 
en ese programa, valores con decima- 
les, y lo mismo ocurrirá con las variables 
literales, que no podrán recibir valores 
numéricos. Sin embargo, algunas asigna- 
ciones de valores de un tipo a variables 
de tipo diferente son permitidas por los 
intérpretes y compiladores BASIC, mien- 
tras que otras no lo son. No se permite 


nunca, por ejemplo, asignar un valor lite- 
ral a una variable numérica de cualquier 
tipo y viceversa, como en los ejemplos si- 
guientes: 


10 LET X$=3 
RUN 


Type mismatch in 10 
10 LET XZ%="A" 


RUN 
Type mismatch in 10 


Sin embargo, siempre es posible asig- 
nar un valor numérico de un tipo (entero, 
real de precisión normal o real de preci- 
sión doble) a una variable de un tipo dife- 
rente, aunque también numérico. Si el 
tipo de la variable es más amplio que el 
del valor asignado, la conversión se rea- 
liza automáticamente. Por ejemplo, el 
tipo real es siempre más amplio que el 
entero, pues lo comprende. El valor 3 
(entero) puede considerarse también 
como 3.000000 (real de precisión nor- 
mal) o como 3.00000000000000 (real de 
precisión doble). Asimismo, el tipo real 
de precisión doble es más amplio que el 
real de precisión simple: 2.567892 equi- 
vale a 2.56789200000000. 

Pero también puede suceder que asig- 
nemos a una variable un valor de un Hpo 
más amplio que el de aquélla. ¿Qué su- 
cede entonces? Pues que el traductor de 
BASIC intenta convertir el valor asignado 
al tipo de la variable. A veces esto es po- 
sible sin pérdida de precisión. Otras, no 
lo es. Veamos algunos ejemplos: 


10 LET A!=123. 456700000000 
20 LET B!'=123.456723451678 
30 LET C'=123.456789012345 
40 LET D%=15.000 

50 LET E%=15.234 

60 LET F%=15.55 

70 PRINT A! 

80 PRINT B! 

90 PRINT C! 

100 PRINT Dz 

110 PRINT Ez 

120 PRINT FZ 


RUN 

123. 4567 
123.4567 
123. 4568 
15 

15 

16 
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Podemos ver que este programa asig- 
na a las variables A! y D% valores que 
pertenecen a un tipo más amplio que el 
de ellas, pero que al convertirse a éste 
resultan ser totalmente equivalentes a los 
que tenían. Sin embargo, esto no es siem- 
pre posible: los valores asignados a las 
variables B!, C!, E% Y F% no pueden con- 
vertirse al tipo de éstas sin pérdida de 
precisión. En este caso la conversión se 
realiza de todos modos, sustituyendo el 
valor asignado por aquél que pertenez- 
ca al tipo de la variable, que sea lo más 
próximo posible al que se nos ha dado. 
Puede verse que a veces esto significa 
redondear hacia arriba, mientras que 
otras obliga a redondear hacia abajo. 
Por convenio, 2.5 se redondeará hacia 3, 
mientras que 2.499999 se redondea ha- 
cia 2. 

La conversión de tipo se realizará igual- 
mente, si es necesario, cuando asigne- 
mos un valor a un elemento de una serie 
o tabla de datos: 


10 DIM X7.(10) 

20 FOR I=1 TO 10 

30 LET X%(1)=1l: NEXT 1 
40 LET X%(3)=5.5 

50 FOR I=1 TO 10 

60 PRINT XZ(1);: NEXT 1 
RUN 

125434787 10 


—— EN 


A veces, sin embargo, la conversión de 
tipo no puede realizarse, como cuando 
intentamos asignar a una variable ente- 
ra un número entero que rebasa la pre- 
cisión posible en la representación inter- 
na de los enteros (véase el capítulo 6) y, 


por tanto, tiene que representarse en 
uno de los tipos reales. En tal caso, ob- 
tendremos un mensaje de error. Recuér- 
dese que, en la mayor parte de los intér- 
pretes y compiladores BASIC, los números 
enteros deben estar comprendidos entre 
-32768 y 32767. Veamos un ejemplo: 


10 A/=123456 
20 PRINT AZ 


RUN 
Overflow in 10 


Hemos intentado asignar a una varia- 
ble entera (A%) un valor (123456) que no 
está comprendido entre -32768 y 32767 
y el intérprete lo ha rechazado. 

En PASCAL, las normas de conversión 
de tipos son muy semejantes a las de BA- 
SIC, aunque con algunas diferencias. En 
primer lugar, como en BASIC, no es posi- 
ble asignar un valor de tipo literal (CHAR 
O STRING) a una variable de tipo numéri- 
CO (INTEGER o REAL), ni tampoco al revés. 
En cambio, sí suele ser válido guardar un 
dato CHAR en una variable STRING, como 
en el programa siguiente: 


program EJEMPLO; | 
var 
a: char; 
b: string; 
begin 
a:="A?”; 
b:=aj 
end. 


Lo contrario no es posible, como es na- 
tural, a menos que el dato STRING que 
asignamos a una variable de tipo CHAR 
tenga un solo carácter. 

De igual manera, la conversión del tipo 
entero al real siempre es posible, pero lo 
contrario no siempre lo es. Además, si en 
PASCAL queremos asignar un dato con 
decimales (como 2.6) a una variable de 
tipo entero, debemos especificar cómo 
deseamos que se haga la conversión: 
truncando el valor (con lo que se conver- 
tiña en 2) o redondeándolo (con lo que 
ia a parar a 3). Para ello existen las fun- 
ciones TRUNC (truncar) y ROUND (redon- 
dear). Veamos un ejemplo: 


program EJEMPLO1; 
var 
a, b, c, d: integer; 
begin 
a: =TRUNC (2.3); 
b:=ROUND (2.3); 
c:=TRUNC (2.6); 
d: =ROUND (2.6); 
writeln (a,? ?,b,? ?,c,”? *,0d)3 
end. 


cuya ejecución da el siguiente resultado: 


Hemos visto que el problema de la con- 
versión no se presenta en los programas 
escritos en APL, en los que, independien- 
temente de lo que haga el intérprete con 
los datos, desde el punto de vista del 
programador no existen más tipos que 
los números y los caracteres. De igual 
manera, en la mayor parte de los progra- 
mas BASIC se utilizan sólo variables rea- 
les en precisión normal, suficiente para 
muchas aplicaciones, por lo que tampo- 
co es preciso tener en cuenta el proble- 
ma de la conversión. Este surge sólo 
cuando se desea aquilatar la ocupación 
de espacio, la velocidad de cálculo o la 
precisión aritmética de los programas y 


se utilizan también variables enteras o en 
doble precisión. 

En PASCAL, sin embargo, el problema 
de la conversión de tipos puede surgir 
con más frecuencia, puesto que la nece- 
sidad de declarar todas las variables lle- 
va al programador a utilizar distintos tipos 
de datos en sus programas. No obstante, 
en muchos programas no llegará siquie- 
ra a presentarse, pues las variables ente- 
ras suelen utilizarse como contadores, a 
los que siempre se asigna valores estric- 
tamente enteros, mientras que las varia- 
bles reales tienden a mezclarse en las 
operaciones con otras del mismo tipo. 

A pesar de todo, es preciso tener pre- 
sente la posibilidad de que tengan lugar 
conversiones automáticas de tipos, pues 
esto puede aclarar algunos efectos que, 
de no tenerlas en cuenta, resultarían casi 
inexplicables para el programador prin- 
cipiante. 


Personal 
editor 


L Personal Editor es un 
programa diseñado 
para llevar a cabo la 
edición de textos. Su 
principal característi- 
ca es la sencillez de 
manejo que permite 
un rápido aprendiza- 
je que lo convierte muy pronto en una 
aplicación productiva. 

Al arrancar el programa se visualiza 
una pantalla de las más simples que pue- 
de uno encontrarse. Una línea en la par- 
te inferior permite introducir comandos. 
En la parte superior de la pantalla se ob- 
servan las marcas de principio y final del 
fichero. Por supuesto, nada más arrancar 
estas líneas están juntas y sin ningún con- 
tenido entre ellas. 


== Top of file == 
Esta es la zona en la que 


se teclea el texto 


== Bottom of file == 


|zZONA DE COMANDOS 


lA Fig. 1. Pantalla del Personal Editor. 


APLICACIONES 


TRATAMIENTOS DE TEXTO: OTROS PROGRAMAS 


La tecla ESC permite el salto de la línea 
de comandos a la función de introduc- 
ción de texto. En esta segunda función, 
el Personal Editor funciona como si se tra- 
tara de una hoja de papel; uno va escri- 
biendo y debe cuidar dónde quedan las 
palabras para que al imprimir (si fuera 
ese el caso) cuadren bien. 

Los comandos principales realizan las 
funciones de llamada a un fichero (e 
nombre de fichero), archivo de un fiche- 
ro en uso (file nombre de fichero), salida 
del programa (quit), etc. Además, las te- 
clas de función incorporan estos coman- 
dos, lo que facilita el trabajo. Una intere- 
sante posibilidad es incorporar al fichero 
de definición del teclado algunas asig- 
naciones de cadenas de caracteres a 
teclas concretas. Esto en algunas aplica- 
ciones facilitará indudablemente el tra- 
bajo. 

El Personal Editor permite la edición de 
varios textos simultáneamente. Esta posi- 
bilidad, dota al programa de gran flexi- 
bilidad porque permite componer a par- 
tir de un texto ya elaborado otro de simi- 
lares características o contenido. El fi- 
chero de ayuda utiliza esta opción. 


Al pulsar F1, el Personal Editor llama al 
fichero de ayuda (PE.HLP) y lo edita. Con 
esta visualización en pantalla se dispone 
de una ayuda bastante completa de las 
principales funciones del cursor, las te- 
clas de función, así como las teclas que 
realizan las funciones básicas del progra- 
ma (Alt + TECLA). 

En la figura 2 se observa una de las pan- 
tallas del menú de ayuda. La descripción 
de cada función está bien realizada en 
el manual del programa. Sin embargo, 
destacaremos la posibilidad de partir lí- 
neas (Alt-S) y unirlas (Alt-J), que permite 
recolocar fácilmente partes de texto y 
agruparlos a gusto de la persona que 
edita. Es posible trazar cuadrados y relle- 


= Pp ef file = 


Help Menu pi 


Punction Leys 


-- Help Heou 

-- Save current file 

-- Save and Quit file 

-- Quit current file 

-- Érase contents of l1ne 
- Brase to end of line 
-- Print current file 

-- Switch active files 

- Insert l1ne 

- Insert line 1ndent 
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s => Shift Key 


pe. hip 1 1 Replace 


Primera pantalla del menú de ayuda que se en- 
cuentra en el fichero Pe.hlp. 


lA 
nar bloques con caracteres. Las funcio- 
nes de marca, copiado, movimiento y 
borrado de bloques se efectúan con 
gran sencillez. 


Por otra parte, el Personal Editor requie- 
re que se sitúe un carácter de retorno de 
carro y alimentación al final de cada lí- 
nea. En ello se asemeja a una máquina 
de escribir que al llegar al final de una lí- 
nea necesita una alimentación “manual” 
de línea. Es posible no incluir este salto 
de línea, pero entonces se requiere ha- 
cer uso de las teclas de movimiento de 
cursor. Cuando no se va a emplear un 
texto escrito en Personal Editor en otro 
procesador de texto, esto no importa. Sin 
embargo, si se va a utilizar en otro pro- 
grama que trate textos, la aparición de 
esos caracteres de salto de línea puede 
dificultar enormemente nuestra labor. El 
programa podría no llegar a reformatear 
todo el texo, ya que al encontrar un sal- 
to de línea supondría fin de párrafo. Si 
esto ocurre en todas la líneas, el texto 
quedaría como estuviera. Este aspecto 
debe cuidarse al escribir con el Personal 
Editor. 


Por último, vamos a reseñar un aspec- 
to de gran interés para los posibles usua- 
rios del Personal Editor. A la par de ser un 
programa enormemente fácil de manejar, 
aunque con un menor número de funcio- 
nes que otros, sus requerimientos de me- 
moria son pequeños. Con sólo 128 Kbytes 
de memoria ya se puede trabajar con 


Text Markers a =) Alt Key 


- block mark for 
rectangles, vertical 
and horizontal l1nes 

-- character mark for 
sentences, phrases 


and characters 
- line mark for one 
line or paragraph 
copy mark delete mark 
22 a-D 
move mark overlay mark 
aA 2-0 


= Botto of file = 


pe. hip 108 1 Replace 


, A | Ultima pantalla de Pe.hlp. Aparece la marca de 
Bottom of file. 


textos de tamaño aceptablemente gran- 
de. 


qu Word Perfect 


El Word Perfect es uno de los programas 
de tratamiento de texto más completos y 
potentes del mercado. La forma de guiar- 
se a través del programa no es median- 
te menús, como en otros procesadores. 
En el Word Perfect se dispone de una re- 
tícula para situar en torno a las teclas de 
función. En ella pueden verse las posibili- 
dades que se obtienen al pulsar cada te- 


WordPerfect 4,1 Template (1HM Layout) 


Legend: 
Reveal Codes Ctrl + Punction Ley 
Help SHIFT + FUNCTION KEY 
Text In/0ut Alt + Function Key 
DATE Function Ley alone 


Mark Text 


Plush Right 
Lust Piles | Bold 
Pootnote | Print 

PRI LIB PORMAT 


Matd/Col umns 
Bt 
Herge/Sort 
MERGE E 
Merge Codes Macro 
Merge R | Save Text 


Page Format 
__Underi1ne___ 
Macro Def. 


[A Retícula de las teclas de función del Word 
Perfect. 


AS APLICACIONES 


cla directamente o combinada con 
SHIFT, ALT o CTRL, con lo que se tienen 40 
funciones visibles en todo momento. 
Además, una vez seleccionada una de 
estas funciones, se visualizan en pantalla 
unos menús de guía para la función en 
cuestión. 

El Word Perfect se completa con unos 
programas adicionales, de entre los que 
destaca el potente diccionario que ¡aci- 
lita enormemente las correcciones orto- 
gráficas. 

La flexibilidad y la potencia son posi- 
blemente las dos principales caracterís- 
ticas del Word Perfect. Respecto a la 
flexibilidad, podemos citar las multiples 
opciones seleccionables para dirigir la 
impresión de textos o documentos, las 
amplias posibilidades para definición de 
formatos de pantalla, macros para textos 
repetitivos y todo un conjunto encamina- 
do a permitir al usuario configurar un pro- 
cesador a la medida de sus necesida- 
des. 

La potencia del Word Perfect se refleja 
principalmente en la forma de tratar los 
textos. En cuanto a escritura y visualiza- 
ción en pantalla, destaca el hecho de 
que las partes de un texto que van en ne- 
grilla (y que en otros procesadores se en- 
marcan entre dos comandos) aparecen 
resaltadas en pantalla, con lo que se tie- 
ne el texto tal como se verá al imprimir. 
Igual ocurre para las partes de los textos 
subrayadas. Otra importante función del 
Word Perfect que potencia su capacidad 
es la posibilidad de generar un “SPOOL” 
de impresión, es decir, ir acumulando 
toda una serie de ficheros a imprimir y 
desentenderse de ellos. Así se puede se- 
guir trabajando y cada vez que se finali- 
ce la impresión de un fichero, será el pro- 
pio Word Perfect el que tomará el si- 


guiente de los acumulados para impri- 
mir. 

El Word Perfect permite también tener 
varias pantallas con varios textos de for- 
ma simultánea, lo que capacita al usua- 
rio para combinar documentos distintos 
con gran flexibilidad. 


Una pantalla sencilla 
pulsando FÉ podemos crear líneas continuas 


O lineas subrrayadas. 


Pulsando PS al mismo tiempo que mantenemos la tecla Shift 
presionada, se visualiza el menu de ayuda de la parte inferior de 
la pantalla 


1 Tabs; 2 B-Tabs; 3 Margins; 4 Spacing; 5 Hypbenation; 6 Align Char: 0 


¡A Pantalla del Word Perfect. 


La pantalla del Word Perfect es tam- 
bién muy sencilla. No aparecen menús, 
salvo que vaya a realizarse una función 
solicitada con las teclas de función. Con 
ello, casi exclusivamente con la retícula 
de ayuda podrían darse los primeros pa- 
sos en el manejo del Word Perfect. Sin 
embargo, para aprovechar este progra- 
ma en toda su potencia, es necesario 
leer detenidamente el manual. 

Por último, reseñar la reciente apari- 
ción de la versión 4 del Word Perfect || 
con nuevas posibilidades. 


PASCAL 


N alguna ocasión he- 
mos mencionado 
que, además de los 
tipos de datos exis- 
tentes en PASCAL, es 
posible crear nues- 
tros propios tipos de 
datos. 


Al igual que el tipo utilizado para ma- 
nejar números enteros tiene un nombre 
que lo identifica, INTEGER, los creados por 
nosotros normalmente tendrán su propio 
nombre, que puede ser cualquier identi- 
ficador válido. No obstante, para mayor 
claridad y siguiendo una norma amplia- 
mente extendida entre los programado- 
res de PASCAL, diferenciaremos los nom- 
bres de tipos de los demás de alguna 
manera; en los ejemplos que hagamos, 
acabarán siempre con .t; si nuestro orde- 
nador careciera del símbolo de subraya- 
do, o nuestro compilador no lo admitie- 
se, bastará con eliminarlo. 


La definición de tipos se hace en la 
zona de descripción de datos y antes de 
la definición de variables. Va precedi- 
da de la palabra reservada TYPE, tras la 
cual se escriben las diferentes descrip- 
ciones de datos separadas entre sí por 
punto y coma. Por tanto, la estructura de 
un programa PASCAL, con lo que sabe- 
mos hasta ahora, sería: 


program NombreDelPrograma; 


Descripción de datos: 


TIPOS DE DATOS A MEDIDA 


Procedimientos y funciones. 


begin 


Instrucciones del programa 


end 


a 


Por supuesto, y siguiendo la analogía 
entre programas y procedimientos, éstos 
pueden tener a su vez tipos locales para 
su uso exclusivo; como es lógico, irán de- 
finidos entre las posibles constantes y va- 
riables locales. 

Como los procedimientos READ, 
READLN, WRITE y WRITELN ya están progra- 
mados de antemano, no sirven para ser 
utilizados con los tipos creados por noso- 
tros. 

Vamos a ver algunos de los posibles 
nuevos tipos: 


z Tipos definidos por 
enumeración 


A menudo se trabaja con datos que no 
son números ni letras. Por ejemplo, po- 
dría ser necesario tener en cuenta el día 
de la semana para que un programa hi- 
ciera o no determinadas cosas. 


se PASCAL 


Para guardar en una variable el día en 
cuestión, una solución podría ser asociar 
a cada día de la semana un número: lu- 
nes el 1, martes el 2, etc. Entonces po- 
dríamos escribir cosas como: 


if Dia = 7 then 
write ('El día es domingo.”); 


donde Dia sería una variable de tipo IN- 
TEGER. 


Esto nos obligaría a recordar en cada 
momento qué números hemos asociado 
a los posibles valores de nuestros datos. 

En PASCAL, sin embargo, es posible 
crear un nuevo tipo de datos para que se 
ajusten a nuestras necesidades. Podria- 
mos tener así un tipo (Illamémosle DIADE- 


const Maximo = 10; 


type 
DiaDeLaSemana_t = 


ColorPintura : 


begin 


LASEMANA), cuyos posibles valores serían 
LUNES, MARTES, MIERCOLES..., al igual que 
existe el tipo INTEGER, cuyos posibles va- 
lores son... -2, -1, 0, 1,..., Oo el BOOLEAN 
con TRUE y FALSE. 

Definiíamos entonces el tipo enume- 
rando sus posibles valores, que estarán 
representados por los identificadores vá- 
lidos que se deseen. Para ello se escribe 
en primer lugar el nombre del tipo, que 
irá seguido de un signo igual y de los 
identificadores de los posibles valores, 
separados entre sí por comas y encerra- 
dos entre paréntesis. Los tipos así crea- 


program TipoEnumerado; 


(Lunes, Martes, 
Jueves, Viernes, Sabado, Domingo); 


Miercoles, 


ColorPrimario_t = (Rojo, Verde, Azul); 


Hoy, Dia : DiaDeLaSemana_t; 


ColorPrimario_t; 
1,3 : integer; 
c 2 char; 


dos, junto con los tipos INTEGER, CHAR y 
BOOLEAN, se llaman TIPOS ESCALARES. Por 
ejemplo: 


(No se extrañe el lector si encuentra ca- 
sualmente ejemplos parecidos de tipos 
definidos por enumeración en más de un 
libro sobre PASCAL.) Con esos tipos así 
definidos se podría escribir: 


Hoy:=Lunes; 
if Dia = Sabado ) and 
(Color <> Rojo) then ... ; 


Hay dos restricciones a la hora de crear 
estos tipos: 


— El número de posibles valores está 
limitado, dependiendo este limite de 


cada compilador; normalmente es 256. 

— Los posibles valores deben ser ex- 
clusivos del tipo que hayamos definido. 
Así, no sería posible crear el tipo VOCA- 
LES formado por los valores 'A', 'E', I', 'O', 
'U”, pues éstos lo son del tipo CHAR. 


Como se puede ver, el tipo BOOLEAN 
sería definible, caso de que no lo estu- 
viera ya, de la siguiente manera: 


type Boolean=(False, True); 


Al igual que los tipos CHAR y BOOLEAN, 
los tipos definidos por enumeración tie- 


nen asociados números ordinales y se 
encuentran ordenados según éstos. Estos 
números se asignan según el orden en que 
se hayan escrito los posibles valores al 
definir el tipo, empezando por cero. 

Por ello, es posible utilizar las funciones 
ORD, PRED y SUCC, que dan respectiva- 
mente, el número de orden, el valor an- 
terior y el posterior a uno dado: 


ord (Hoy) valdría 1 si Hoy 
valiera Martes 

pred (Sabado) valdría Viernes 

succ (Color) valdría Verde si 
Color valiera Rojo. 


y comparar valores: 
Lunes < Martes 


Como los procedimientos que ya cono- 
cemos para presentar cosas por panta- 
lla no nos sirven, tendremos que escribir- 
los cuando sea necesario. Los paráme- 
tros que se pasan a un procedimiento 
pueden ser del tipo que se quiera, inclu- 
yendo, por supuesto, a los creados por 
nosotros: 


En el procedimiento de lectura, se ha 
pasado el parámetro por nombre, pues 
lo que queremos es alterar el valor de 
una variable según la letra tecleada. Con 
esos procedimientos podríamos escribir 
cosas como: 


WriteDia (succ(Hoy)); 
LeeColor (ColorPintura); 


procedure WriteDia (D: 


begin 


end; 


var Letra: 
begin 


char; 


repeat 
readln (Letra); 


until Ok; 


if Letra = *R” 


else C:= Azul 
end; 


valdría TRUE, pues ord (lunes) es menor 
que ord (Martes). (Recordemos, una vez 
más, que en PASCAL nunca se pueden 
mezclar tipos.) 

Por esto mismo, también es posible usar 
variables de tipo definido por enumera- 
ción para control de las estructuras FOR: 


for Dia:= Lunes to Viernes do ... 
for Color:= Azul downto Rojo do ... 


Di aDeLaSemana_t); 
(% Presenta en pantalla el valor de D x) 


if D= Lunes then write (*Lunes”) 
else if D = Martes then write (*Martes”) 
else if D = Miercoles then write (*Miércoles”) 
else if D = Jueves then write (”Jueves”) 
else if D = Viernes then write (*Viernes”) 
else if D = Sabado then write (*Sábado”) 
else write (*Domingo”) 


procedure LeeClolor (var C:z ColorPrimario_t); 
(k Lee de teclado un color k£) 


Ok: boolean; 
(kx Pedir letra del color: *) 
write (*Color? (R,V,A) ?); 


Ok:= (Letra="R”) or (Letra="V”) or (Letra="A”); 
if mot Ok then writeln ("Letra no válida.”) 


then C:= Rojo 
else if Letra = *V” then C:= Verde 


2 Descripción de un tipo sobre 
la marcha 


Cuando sólo se va a hacer referencia 
a un tipo en un punto de un programa, es 
posible definirlo al mismo tiempo que se 
definen las variables de ese tipo, sin ne- 
cesidad de darle un nombre declarán- 
dolo previamente. Para ello basta con 
poner, al definir la variable, la descrip- 


a PASCAL 


ción de tipo que se habría utilizado si se 
hubiera declarado de la forma habitual: 


var 
NotasJaime, 


Normalmente, no es muy aconsejable 
proceder así por motivos de claridad; 
por otra parte, si en un procedimiento hu- 
biera que utilizar parámetros de alguno 
de esos tipos, no tendríamos más reme- 
dio que darles previamente un nombre, 
pues la definición sobre la marcha no 
está permitida en las listas de paráme- 
tros. 

Aunque el ejemplo consta únicamente 
de tipos definidos por enumeración, se 
puede definir sobre la marcha el tipo que 
se quiera. 


Tipos subrango 


Ya se vio en su momento cómo se po- 
día definir una variable de tipo subrango 
de los tipos CHAR e INTEGER. 


program TipoSubRango; 


type 
DiaDeLaSemana_t = 


Mayuscula_t 
Minmuscula_t 


var 


Inicial 


NotasJorge : (Suspenso, Aprobado, Notable, Sobresaliente); 
ClaseDePelo : (Moreno, Castano, Pelirrojo, Rubio, Platino); 
(k por desgracia, la ñ no suele ser válida X) 


(Lunes, Martes, Miercoles, 
Jueves, Viernes, Sabado, Domingo); 


Dialaborable_t = Lunes..Viernes; 
= A AE 


DiaDeCurre: Dialaborable_t; 
: Mayuscula_t; 


Con los otros tipos escalares es posible 
tambien definir subrangos. Por ejemplo, 


estando el tipo DiaDeLaSemana.t ya de- 
clarado podriamos tener: 


var 
DiaDeCurre: Lunes. .Viernes; 


con lo que indicamos al compilador que 
la variable DiaDeCurre sólo puede tener 
valores comprendidos entre Lunes y Vier- 
nes. El subrango se describe, por tanto, 
poniendo los valores extremos separa- 
dos por un par de puntos, de manera que 
el primero sea menor que el segundo. 

Aunque en el ejemplo hemos escrito el 
subrango al definir la variable, normal- 
mente será más conveniente crear pri- 
mero el tipo subrango y luego utilizarlo al 
describir las variables: 


Los tipos subrangos en el fondo siguen 
siendo del tipo que les da origen y por 


ello SI se pueden mezclar entre sí y con 
el tipo escalar asociado si éste es comun 
a ellos. Por ejemplo, si tenemos: 


var 
Az 1, 10: 
B: 0..30; 
E: 10..30; 


el tipo original asociado a A, B y C es IN- 
TEGER y por ello las instrucciones 


A=B; 
write (B+C); 
E:=B; 


son correctas, aunque al correr el pro- 
grama se podría producir un error al eje- 


cutar, porejemplo, A:=B si B tuviera un va- 
lor no aceptable para A. 


Además de servir para controlar que 
no se almacenan valores erróneos en las 
variables, a veces se obtiene un ahorro 
de memoria, pues el tamaño de la por- 
ción necesaria para guardar datos con 
valores restringidos puede ser menor. 


NOTA: La mayoría de los compiladores 
tienen la posibilidad de activar o no la 
propiedad de controlar si los valores que 
se guardan en variables del tipo subran- 
go están dentro de los límites permitidos; 
para salir de dudas, es menester consul- 
tar el manual del compilador. 


A diferencia entre va- 
riables y constantes, 
como las variables 
deben declararse an- 
tes de utilizarse en un 
programa escrito en 
C, los diferentes tipos 
de datos reconoci- 
dos en C, los operadores y las expresio- 
nes como combinación de variables y 
constantes. 


' Variables y constantes 


Tanto las variables como las constantes 
en un lenguaje de programación, son da- 
tos que el programa utiliza para realizar 
una serie de tratamientos con ellos. 

Ciertos datos se preseleccionan antes 
de la ejecución de un programa, mante- 
niendo sus valores inalterables durante la 
misma, por lo que a dichos datos se les 
conoce como constantes. 

Por el contrario, existen otros datos que 
pueden variar a lo largo de la ejecución 
del programa, llamándose a éstos varia- 
bles. 

El nombre de una variable tiene ciertas 
restricciones. Veamos esto. Cualquier va- 
riable está formada por una serie de le- 
tras y dígitos en secuencia, pero debe- 
mos tener muy claro siempre que el pri- 
mer carácter de comienzo de una varia- 
ble debe ser una letra. Nombres de va- 
riables válidos pueden ser: 


area 
h54 
juan-ana 


OTROS LENGUAJES 


LENGUAJE C: TIPO DE DATOS, 
OPERADORES Y EXPRESIONES 


Por el contrario, no podrán utilizarse 
para variables nombres tales como: 


5tuyo 
juan.ana 


Las letras mayúsculas y minúsculas son 
diferentes en el lenguaje de programa- 
ción C. Se utilizan tradicionalmente las 
minúsculas para los nombres de varia- 
bles y las mayúsculas para nombres de 
constantes. 

Solamente los ocho primeros caracte- 
res de un nombre de variable son signifi- 
cativos, aunque pueden utilizarse en nú- 
mero superior. 

Finalmente diremos que en C, como en 
todos los lenguajes de programación, 
existen palabras reservadas que no po- 
drán utilizarse como nombres de varia- 
bles. Tal es el caso de las siguientes pa- 
labras reservadas: 


auto break case char continue 
default do double else entry 
enum extern float for goto 
if in long registerreturn 
short sizeof static struct switch 


typedef union unsigneduntil 
while 


void 


Datos: sus tipos 


Dentro del lenguaje de programación 
C los tipos de datos se clasifican en: 


— char 
— int 

— float 
— double 


OPERADORES 


ÉS Operadores. 


El tipo char almacena en un byte (ocho 
bits) un carácter que corresponde al jue- 
go de caracteres empleado en su insta- 
lación (ASCII o EBCDIC). 

El tipo int son enteros (sin parte deci- 
mal) que pueden tener signo o no. 

Para el tipo inf existen una serie de ca- 
lificadores tales como short, long y unsig- 
ned. 

El tipo float representa un número en 
punto flotante y simple precisión. Este 
tipo de datos es utilizado en programas 
que poseen un gran número de cálculos 
matemáticos. 

El tipo double (doble precisión) utiliza 
un número doble de bits, es decir, 64. In- 
corporando los 32 bits adicionales a la 
mantisa, se consigue un mayor número 
de cifras significativas, alcanzándose 
una mayor precisión. 


o Declaración 
de variables 


Todas las variables en C, al igual que 
en Pascal, deben ser declaradas antes 
de su utilización. En todo programa C su- 
ministraremos una lista de variables que 
se utilizarán a lo largo del programa, in- 
dicando a qué tipo pertenecen. 


MANIPULACION 
DE BITS 


ASIGNACION 


Veamos un ejemplo de declaración de 
variables: 
int a,b,c; 
long int z; 
char letra, silaba; 


Las variables de un mismo tipo pueden 
reunirse en una misma sentencia o utili- 
zar varias. 

En la declaración de variables pode- 
mos inicializar éstas a un determinado 
valor, como, por ejemplo: 


Int p:=.75; 
char palabra = 'p'; 


El ejemplo anterior definiría una varia- 
ble entera con un valor inicial de 75 y 
una variable del tipo carácter con valor 
inicial p. 


'D Operadores 


En el lenguaje C existen los siguientes 
tipos de operadores: 


— Aritméticos. 

— Relacionales. 

— Lógicos. 

— Manipulación de bits. 

— Asignación. 

— Incremento y decremento. 
— Condicionales. 


40 OTROS LENGUAJES 


A 
A Tipos de datos. 


Veamos cada uno de ellos. 
— Operadores aritméticos 


Los operadores aritméticos binarios 
son: + (suma), - (resta), * (multiplicación), 
/ (división) y el operador módulo %. 

Si realizamos una división entera de 
dos números, se truncará cualquier par- 
te fraccionaria. 


— Operadores relacionales 


Los operadores de relación en C son : 
> (mayor que), < (menor que), >= (ma- 
yor o igual) y <= (menor o igual). 

Los operadores de igualdad son: == 
(igual) y != (distinto de). 


— Operadores lógicos 
Las conectivas lógicas son : 48 (and) y 


| (or). 


— Operadores lógicos para manejo 
de bits 


Los operadores para la manipulación 
de bits no son aplicables a operandos 
del tipo float y double. Entre los operado- 
res de manipulación tenemos: € (and ló- 
gico), | (or lógico), (or exclusivo lógi- 
co), > (desplazamiento a la derecha), « 
(desplazamiento a la izquierda) y - (com- 
plemento a uno o negación de bits). 


Los operadores lógicos de bits trabajan 


SHORT 
LONG 
UNSIGNED 


bit a bit y pueden tratar cada bit inde- 
pendientemente. 


— Operadores de asignación 


El operador de asignación más ele- 
mental es el =, que no debe confundirse 
con el operador == de comprobación de 
igualdad. 


— Operadores de incremento y de- 
cremento 


Para incrementar y decrementar en 
una unidad a un operando el lenguaje 
de programación C, dispone de dos ope- 
radores : ++ (le suma 1 a su operando) y 
-(le resta 1 a su operando). Estos opera- 
dores pueden ir colocados antes de la 
variable o después de la variable. De- 
pendiendo de la colocación los efectos 
serán diferentes. 


— Operador condicional 


En C se puede abreviar la sentencia jif- 
else tan conocida en otros lenguajes de 
programación, a través del operador 
condicional ?: 

La forma general de una expresión 
condicional es: 


expresion] ? expresión2 : expresión3. 


Si expresión1 es cierta, la expresión 
condicional total toma el valor de la ex- 
presión2; si, por el contrario, expresión 1 
es falsa, toma el valor de la expresión3. 


=== Y EDICIONES y SIGLO y CULTURAL y === 


